[求助]：pascal语言编程

我的更简单!

var i:integer;
begin
read(i);
case i of
1:write('Monday');
2:write('Tuesday');
3:write('Wednesday');
4:write('Thursday');
5:write('Firday');
6:write('Saturday');
0:write('Sunday');
end;
end.

1.program aa;
var
a:0..6;
begin
readln(a);
case a of
0:writeln('Sunday');
1:writeln('Monday');
2:writeln('Tuesday');
3:writeln('Wednesday');
4:writeln('Thursday');
5:writeln('Friday');
6:writeln('Saturday');
end;
end.
2.program aa;
const a:array[0..6] of string=('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
var
n:0..6;
begin
readln(n);
writeln(a[n]);
end.
可以用数组，也可以用C